(defun result () (hack '(
(2592
(RUNTIME 17.572) 
(GCTIME 31.451) 
(wholine 103 43))
(2592 
(RUNTIME 17.191) 
(GCTIME 2.586) 
(wholine 45 0))
(2592 
(RUNTIME 17.32) 
(GCTIME 2.642) 
(wholine 41 17))
(2592 
(RUNTIME 17.414) 
(GCTIME 2.103) 
(wholine 44 57))
(2592 
(RUNTIME 17.559) 
(GCTIME 1.955) 
(wholine 50 24)))))

(defun hack (l)
 (let etot ← 0 wtot ← 0 rat ← 0 do
  (for x ε l scan
       (print (car x))
       (print (cadr x))
       (print (caddr x))
       (setq etot (plus (cadr (cadr x))
			(cadr (caddr x))))
       (setq wtot (plus (cadr (cadddr x))
			(quotient (float (caddr (cadddr x)))
				  60.0)))
       (setq rat (quotient wtot etot))
       (print (list 'wruntime (times (cadr (cadr x)) rat)))
       (print (list 'wgctime (times (cadr (caddr x)) rat)))
       (print (list 'wholine wtot)))))